home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).po / AWP.READER.bas next >
BASIC Source File  |  1996-12-24  |  672b  |  2 lines
  1. 10 A = A +1:K =  PEEK(38400 +B):B = B +1:F = (K < >255) +(  NOT C): ON (  NOT F) GOTO 20: ON (C *(B <512)) GOTO 20: PRINT D$"READ"F$",B512":B = 0: ON C GOTO 20:D$ =  CHR$(4): HOME : PRINT D$"CAT,TAWP": INPUT "FILE NAME ";F$: HOME : PRINT D$"OPEN"F$",TAWP":B = 300: PRINT D$"PR#3":F = 1:C = 1:Q$ = "MORE Y/N ":A = 0: GOTO 10
  2. 20 C(A *(A <6)) = K: ON ((A <2) *F) GOTO 10:A = A *(C(2) = 0): PRINT  CHR$(13 *(C(2) = 208));: ON ((  NOT A) *F) GOTO 10: ON ((A <5) *F) GOTO 10: PRINT  SPC( C(3) *(A = 5)): PRINT  CHR$(K *(K >31) *F);: ON (((A -4) <(C(1) -2)) *F) GOTO 10: PRINT :A = 0: ON F GOTO 10: PRINT : PRINT D$"CLOSE": PRINT Q$;: INPUT X$: IF X$ = "Y"  THEN  CLEAR : GOTO 10